home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
program
/
4cmp22s.zip
/
EXEGO.4TH
< prev
next >
Wrap
Text File
|
1994-10-30
|
1KB
|
27 lines
\ HEADER FOR .EXE PROGRAMS 09:36 06/25/94
\ COPYRIGHT 1985, 1991 (C) BY THOMAS ALMY. ALL RIGHTS RESERVED
\ Permission is granted to registered users of ForthCMP to
\ sell or distrubute computer programs incorporating the compiled
\ contents of this file.
\ MS-DOS is a trademark of Microsoft Corporation.
\ This file is for MS-DOS EXE files, with or without a separate stack segment.
10 ASM HEX FWD, ( skip the variables )
HEX DSEG
VARIABLE DP ( start free ram = HERE, set by END command )
VARIABLE S0 ( top of stack )
VARIABLE R0 ( top of return stack )
VARIABLE BASE ( radix ) 0A BASE ! ( decimal )
CSEG CREATE SEGOFFSET 0 , ( will be filled by END command )
THEN,
SEPSSEG? [IF] AX CS <SEG SEGOFFSET [] AX ADD [ELSE] AX SS <SEG [THEN]
AX DS >SEG
SP AX MOV AX BP MOV AX DEC AX DEC AX S0 [] MOV
rssize # BP ADD BP R0 [] MOV \ return stack
0 0 IN/OUT NEED MAIN
CLD CALL' MAIN ( call main program )
CODE bye 4C # AX MOV 21 INT END-CODE
FORTH 0A = [IF] DECIMAL [THEN] DSEG